Aminet 16/Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso/Aminet/util/time/Mayland.lha/MaylandV1.0/Install

Text File | 1996-10-06 | 6KB | 191 lines

( Message "\nYou are about to install:\n\n"
          "Mayland version 1.0\n\n"
          "The ultimative Calender & Reminder!\n\n\n\n"
          "© 1996 Allan Odgaard\n\n<[e-mail]>" )

( If (< (/ (GetVersion) 65536) 39)
  ( Abort "\n\nYOU DO NOT HAVE KICKSTART 39+\n\n\nWhich is required by this program." )
)

( If (= (PatMatch "(68000|68010)" (DataBase "CPU")) 1)
  ( Abort "\n\nYOU DO NOT HAVE A 68020 OR BETTER!\n\n\nWhich is required by this program." )
)

( If (Not (Exists "Libs:MUIMaster.library"))
  ( Abort "\n\nYOU DO NOT HAVE\n\nMagicUserInterface V3.1+\n\nINSTALLED!" )
)

( Set #MUIVersion (/ (GetVersion "Libs:MUIMaster.library") 65536))
  ( If (= #MUIVersion 0)
    ( Set #MUIVersion (/ (GetVersion "Sys:Prefs/MUI") 65536))
    ( If (= #MUIVersion 0)
      ( Set #MUIVersion (/ (GetVersion "MUI:MUI") 65536)
    )
  )
)

( If (= #MUIVersion 0)
  ( Message "\n\nWARNING!\n\nUnable to determine the installed version of MUI\n"
            "\nOnly continue if you have version 3.1 or never!" )

  (If (< #MUIVersion 14)
     ( Abort "\n\nThe installed version of MUI is to old to work with Mayland!\n\n"
             "Please install version 3.1 or higher!" )
  )
)

( Welcome )

( Complete 0 )

( Set #Locales ( AskOptions ( Prompt "Which catalog files do you wish to install?")
                            ( Help  @askoptions-help )
                            ( Choices "p Bosanski"
                                       " Dansk"
                                       " Deutsch"
                                       " Français"
                                       " Svenska" )
                            ( Default 0 )
               )
)

( Set #Holidays ( AskChoice ( Prompt "Which holiday file do you wish to install?")
                            ( Help  @askchoice-help )
                            ( Choices "p Dansk"
                                       " Deutsch"
                                       " Français"
                                       " U.S. (official)"
                                       " U.S. (unofficial)"
                                       " U.S. (merged)"
                                       " None" )
                            ( Default 6 )
                )
)

( Set #GuidePath ("Help:%s" @language))

( If (Not (AskBool (Prompt "\n\n\n\nIs it ok to install the guide as:\n\n" (TackOn #GuidePath "Mayland.Guide"))
                   (Help "Select Yes if you want the guide installed where it is suggested.\nChoose No to select another path." )
          )
     )

  ( Set #GuidePath ( AskDir ( Prompt "Where would you like to have Mayland.guide installed?" )
                            ( Help   "\nThis should be where you normally keep your AmigaGuides!" )
                            ( Default #GuidePath )
                   )
  )
)

( Set #Source      (PathOnly @icon))
( Set #PrefsFile   (TackOn #Source "Prefs/MaylandPrefs"))
( Set #DemonFile   (TackOn #Source "WBStartup/Mayland"))
( Set #DOSLibFile  (TackOn #Source "Libs/DOSPath.library"))
( Set #WBLibFile   (TackOn #Source "Libs/WBStart.library"))
( Set #AmigaGuide  (TackOn #Source "Help/Mayland.Guide"))
( Set #HolidayFile (TackOn #Source ("Holidays/Holidays.%s" (Select #Holidays "DK" "De" "Fr" "oUS" "uUS" "US" ""))))
( Set #DemonDest   "Sys:WBStartUp/")

( If (Not (AskBool (Prompt "\n\n\n\nWould you like to have the demon installed in\n" #DemonDest)
                   (Help "Select Yes if you want the guide installed where it is suggested.\nChoose No to select another path." )
          )
     )

  ( Set #DemonDest ( AskDir ( Prompt "Where would you like to have MaylandDemon installed?" )
                            ( Help   "\nThis would normally be in your WBStartup drawer, but if you use a startupmanager type of program, then you might want it elsewhere." )
                            ( Default #DemonDest )
                   )
  )
)

( CopyLib
  ( Prompt "Copying WBStarter.Library V2.2 to Libs:" )
  ( Confirm )
  ( Source #WBLibFile )
  ( Dest "Libs:" )
  ( Help @copylib-help )
)

( CopyLib
  ( Prompt "Copying DOSPath.Library V1.0 to Libs:" )
  ( Confirm )
  ( Source #DOSLibFile )
  ( Dest "Libs:" )
  ( Help @copylib-help )
)

( Complete 20 )

( CopyFiles
  ( Prompt "Copying MaylandDemon to" #DemonDest )
  ( Source  #DemonFile )
  ( Dest #DemonDest )
  ( Help @copyfiles-help )
  ( Infos )
  ( NoPosition )
)

( Complete 40 )

( CopyFiles
  ( Prompt "Copying MaylandPrefs to Sys:Prefs/" )
  ( Source  #PrefsFile )
  ( Dest "Sys:Prefs" )
  ( Help @copyfiles-help )
  ( Infos )
  ( NoPosition )
)

( Complete 60 )

( If (<> #Holidays 6)
  (( CopyFiles
     ( Prompt "Copying Holiday file to EnvArc:Mayland/" )
     ( Source  #HolidayFile )
     ( Dest "EnvArc:Mayland" )
     ( Newname "Holidays" )
     ( Help @copyfiles-help )
   )

   ( CopyFiles
     ( Prompt "Copying Holiday file to Env:Mayland/" )
     ( Source  #HolidayFile )
     ( Dest "Env:Mayland" )
     ( Newname "Holidays" )
     ( Help @copyfiles-help )
   )
  )
)

( Complete 80 )

( Set #Count 0)
( Until (= #Count 5)
  ( If (In #Locales #Count)
    (( Set #CatalogFile (TackOn (TackOn #Source "Catalogs") (Select #Count "Bosanski" "Dansk" "Deutsch" "Français" "Svenska")))
     ( Set #CatDest (TackOn "Locale:Catalogs" (Select #Count "Bosanski" "Dansk" "Deutsch" "Français" "Svenska")))
     ( CopyFiles
       ( Prompt "Copying locale files to Locale:Catalogs/" )
       ( Source  #CatalogFile )
       ( Dest    #CatDest )
       ( Help @copyfiles-help )
       ( All )
     )
    )
  )
  ( Set #Count (+ #Count 1))
)

( Complete 90 )

   ( CopyFiles
     ( Prompt "Copying Mayland.guide to" #GuidePath )
     ( Source  #AmigaGuide )
     ( Dest #GuidePath )
     ( Help @copyfiles-help )
   )

( Complete 100 )

( Set @default-dest "Sys:Prefs/" )